# function to test the symbols in a group

group <- "AGRICULTURE"

getSymbolsGroup(group)
smallcl <- getDBGroup(group)

for (i in 1:length(smallcl[,"code"])) {
  chartSeries(dayOffset(get(paste(smallcl[,"code"][[i]], ".vadb", sep=""))), name=smallcl[,"code"][[i]])
  z <- readline("aa")
  chartSeries(get(paste(smallcl[,"code"][[i]], ".vadb", sep="") ), name=smallcl[,"code"][[i]])
  z <- readline("aa")
  chartSeries(get(paste(smallcl[,"code"][[i]], ".vadb", sep="") ), name=smallcl[,"code"][[i]], subset="first 2 year")
  z <- readline("aa")
  chartSeries(get(paste(smallcl[,"code"][[i]], ".vadb", sep="") ), name=smallcl[,"code"][[i]], subset="last 1 year")
  z <- readline("aa")
}